home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 21.zip / BS1 part 21 / Professional Page v4.0 (1993)(Gold Disk)(Disk 1 of 4)[HD].7z / Professional Page v4.0 (1993)(Gold Disk)(Disk 1 of 4)[HD].adf / Hard_Drive_Installation < prev    next >
Text File  |  1993-01-30  |  17KB  |  611 lines
  1. ;*****************************************************
  2. ;  Script to Install Professional Page 4.0
  3. ;  :ts=2
  4. ;  Copyright ©1993 GOLD DISK Inc.
  5. ;*****************************************************
  6.  
  7. (set rexx_size 0)
  8. (set clip_size 0)
  9.  
  10. (set Pageflag 1)
  11. (set FAISflag 2)
  12. (set Fontsflag 4)
  13. (set AEflag 8)
  14. (set GrEflag 16)
  15. (set Tutflag 32)
  16. (set Clipflag 64)
  17. (set Genieflag 128)
  18. (set Fmanflag 256)
  19. (set spflag 512)
  20. (set BMFontsflag 1024)
  21.  
  22. ;******************************************************
  23. ;* See what the user wants to install this round
  24. ;******************************************************
  25.  
  26. (set install_opts
  27.     (askoptions
  28.         (prompt
  29.             "Professional Page Hard-Disk Installation\n\n"
  30.             "Please select which programs and/or data you wish to install "
  31.             "now to your hard drive.")
  32.         (choices "Professional Page" "FAIS loader" "Fonts" 
  33.             "Article Editor" "Graphics Editor" "Tutorial" "PDRAW Clips" "Genies"
  34.             "Font Manager" "Print Spooler")
  35.         (default -1)
  36.         (help
  37.             "Professional Page: Main program. (1020k)\n"
  38.             "FAIS loader: Converts Agfa fonts for use in Professional Page. (31k)\n"
  39.             "Fonts: Compugraphic (649k) and Amiga Fonts (k)\n"
  40.             "Article Editor: Text editor and spell checker. (91k)\n"
  41.             "Graphics Editor: Bit-map paint program. (62k)\n"
  42.             "Tutorial: Data files used by the tutorial procedure. (123k)\n"
  43.             "PDraw Clips: Structured graphics images. (830k)\n"
  44.             "Genies: Structured graphics images. (181k)\n"
  45.             "Font Manager: Adobe Font converter. (187k)\n"
  46.             "Print Spooler: Adobe Font converter. (123k)\n"
  47.             "\nTotal Space needed ..... (k)"
  48.         )
  49.     )
  50. )
  51.  
  52. ;*
  53. ;* See if this is actually an update, and if so be
  54. ;* sure they want program in same place
  55. ;*
  56.  
  57. (set ps_dest (getassign "PPage" "a"))
  58.  
  59. (if (<> ps_dest "") (if (AND install_opts Pageflag)
  60.     (if
  61.         (askbool
  62.             (prompt
  63.                 "Your current copy of Professional Page appears to be located "
  64.                 "in the drawer named \"" ps_dest "\". Do you want to update "
  65.                 "(over-write) this version?")
  66.             (help
  67.                 "The installer has determined that you may already have a "
  68.                 "copy of Professional Page on your system. If this is wrong or "
  69.                 "if you want Professional Page installed elsewhere answer NO; "
  70.                 "otherwise, select YES.")
  71.             (default 1)
  72.         )
  73.         (set dummy 0)
  74.         (set ps_dest "")
  75.     )
  76. ))
  77.  
  78. ;* install "Professional Page" option
  79.  
  80. (if (AND install_opts Pageflag) (if (= ps_dest "")
  81.     (
  82.         (set ps_dest
  83.             (askdir
  84.                 (prompt
  85.                     "Select the drawer where you would like\n "
  86.                     "the drawer PPage4.0\n"
  87.                     "created. Please click on Help for more info.")
  88.                 (help
  89.                     "The drawer \"PPage4.0\" will be created here to include "
  90.                     "the program \"Professional Page\" and auxiliary programs and "
  91.                     "data. CGFonts will also be created here if it "
  92.                     "does not currently exist.")
  93.                 (default @default-dest)
  94.             )
  95.         )
  96.     (set ps_dest (tackon ps_dest "PPage4.0"))
  97.     )
  98. ))
  99.  
  100. (if (= ps_dest "") (set ps_dest (tackon @default-dest "PPage4.0")))
  101. (if (<> (exists ps_dest) 2) (makedir ps_dest (infos)))
  102.  
  103. ;* install "CGFonts" option
  104.  
  105. (set cg_dest (getassign "CGFonts" "a"))
  106.  
  107. (if (AND install_opts Fontsflag)
  108.     (
  109.         (if (= cg_dest "")
  110.             (
  111.                 (set cg_dest
  112.                     (askdir
  113.                         (prompt
  114.                             "Select the drawer where you would like\nthe CG Fonts drawer\n"
  115.                             "created. Press Help for more information.")
  116.                         (help
  117.                             "The drawer \"CGfonts\" will be created here and the "
  118.                             "CompuGraphic Font files supplied with Professional Page "
  119.                             "will be copied to this new drawer. If you need a new drawer "
  120.                             "click on the \"Make New Drawer...\" button.")
  121.                         (default ps_dest)
  122.                     )
  123.                 )
  124.                 (set cg_dest (tackon cg_dest "CGFonts"))
  125.             )
  126.         )
  127.         (startup "PPage"
  128.             (prompt "I am going to add a new assign for \"CGFonts:\".")
  129.             (help
  130.                 "Professional Page needs this assign for CG-type "
  131.                 "fonts to work properly.")
  132.                 (command "Assign CGFonts: \"" cg_dest "\"\n")
  133.         )
  134.     )
  135. )
  136.  
  137. ;* install "Fonts" option
  138.  
  139. (set font_dest (getassign "Fonts" "a"))
  140.  
  141. (if (AND install_opts Fontsflag)
  142.     (if
  143.         (askbool
  144.             (prompt
  145.                 "Do you want Amiga BitMap fonts copied to your Fonts: Drawer? "
  146.                 "These fonts will give an approximate on-screen representation of "
  147.                 "some fonts which may be built into your PostScript Printer.")
  148.             (help
  149.                 "Be careful here: there are quite a number of fonts which "
  150.                 "could overflow your \"Fonts:\" directory if it is on Floppy.")
  151.             (default 0)
  152.         )
  153.       (set install_opts (OR install_opts BMFontsflag))
  154.     )
  155. )
  156.  
  157. (if (AND install_opts BMFontsflag) (if (= font_dest "")
  158.     (
  159.         (set font_dest
  160.             (askdir
  161.                 (prompt
  162.                     "Select the drawer where you would like\nAmiga Fonts\n"
  163.                     "installed. If you need a new drawer click on the "
  164.                     "\"Make New Drawer...\" button.")
  165.                 (help
  166.                     "The Amiga Font files supplied with Professional Page "
  167.                     "will be copied to this drawer.")
  168.                 (default (tackon @default_dest "Fonts"))
  169.             )
  170.         )
  171.         (startup "PPage"
  172.             (prompt
  173.                 "I am going to add a new assign for \"Fonts:\" "
  174.                 "to your startup sequence file.")
  175.             (help
  176.                 "Professional Page needs this assign for Amiga-type "
  177.                 "fonts to work properly.")
  178.             (command "Assign Fonts: \"" font_dest "\"\n")
  179.         )
  180.     )
  181. ))
  182.  
  183. ;* Install "FAIS loader" option
  184.  
  185. (if (AND install_opts FAISflag)
  186.     (
  187.         (set fs_dest
  188.             (askdir
  189.                 (prompt
  190.                     "Select the drawer where you would like\nthe FAIS loader\n"
  191.                     "installed. If you need a new drawer click on the "
  192.                     "\"Make New Drawer...\" button.")
  193.                 (help
  194.                     "The Program \"FAISLoad\" will be copied to this drawer.")
  195.                 (default ps_dest)
  196.             )
  197.         )
  198.         (if (NOT (AND install_opts Pageflag)) (set ps_dest fs_dest))
  199.         (if (<> (exists ps_dest) 2) (makedir ps_dest (infos)))
  200.     )
  201. )
  202.  
  203. ;* Install "Font Manager" option
  204.  
  205. (if (AND install_opts Fmanflag)
  206.     (
  207.         (set fm_dest
  208.             (askdir
  209.                 (prompt
  210.                     "Select the drawer where you would like\nFont Manager\n"
  211.                     "installed. If you need a new drawer click on the "
  212.                     "\"Make New Drawer...\" button.")
  213.                 (help
  214.                     "The Program \"Font Manager\" and associated modules "
  215.                     "will be copied to this drawer.")
  216.                 (default ps_dest)
  217.             )
  218.         )
  219.         (if (NOT (AND install_opts Pageflag)) (set ps_dest fm_dest))
  220.         (if (<> (exists ps_dest) 2) (makedir ps_dest (infos)))
  221.     )
  222. )
  223.  
  224. ;* Install "Article Editor" option
  225.  
  226. (if (AND install_opts AEflag)
  227.     (
  228.         (set ae_dest
  229.             (askdir
  230.                 (prompt
  231.                     "Select the drawer where you would like\nArticle Editor\n"
  232.                     "installed. If you need a new drawer click on the "
  233.                     "\"Make New Drawer...\" button.")
  234.                 (help
  235.                     "The Program \"Article Editor\" will be copied to this drawer.")
  236.                 (default ps_dest)
  237.              )
  238.         )
  239.         (if (NOT (AND install_opts Pageflag)) (set ps_dest ae_dest))
  240.         (if (<> (exists ps_dest) 2) (makedir ps_dest (infos)))
  241.     )
  242. )
  243.  
  244. ;* Install "Graphics Editor" option
  245.  
  246. (if (AND install_opts GrEflag)
  247.     (
  248.         (set pnt_dest
  249.             (askdir
  250.                 (prompt
  251.                     "Select the drawer where you would like\nGraphics Editor\n"
  252.                     "installed. If you need a new drawer click on the "
  253.                     "\"Make New Drawer...\" button.")
  254.                 (help
  255.                     "The Program \"GrE\" will be copied to this drawer.")
  256.                 (default ps_dest)
  257.             )
  258.         )
  259.         (if (NOT (AND install_opts Pageflag)) (set ps_dest pnt_dest))
  260.         (if (<> (exists ps_dest) 2) (makedir ps_dest (infos)))
  261.     )
  262. )
  263.  
  264. ;* Install "Tutorial" option
  265.  
  266. (if (AND install_opts Tutflag)
  267.     (set tut_dest
  268.         (askdir
  269.             (prompt
  270.                 "Select the drawer where you would like\nthe Tutorial drawer\n"
  271.                 "created. Press Help for more information.")
  272.             (help
  273.                 "The data files for the tutorial will be copied to this drawer.")
  274.             (default ps_dest)
  275.         )
  276.     )
  277. )
  278.  
  279. ;* Install "PDraw Clips" option
  280.  
  281. (if (AND install_opts Clipflag)
  282.     (set clip_dest
  283.         (askdir
  284.             (prompt
  285.                 "Select the drawer where you would like the\nProfessional "
  286.                 "Draw Clip Drawer\ncreated. Press Help for more information.")
  287.             (help
  288.                 "Professional Draw Clips will be copied to this drawer.")
  289.             (default ps_dest)
  290.         )
  291.     )
  292. )
  293.  
  294. ;* Install "Print Spooler" option
  295.  
  296. (if (AND install_opts spflag)
  297.     (
  298.         (set spo_dest
  299.             (askdir
  300.                 (prompt
  301.                     "Select the drawer where you would like\nPrint Spooler\n"
  302.                     "installed. If you need a new drawer click on the "
  303.                     "\"Make New Drawer...\" button.")
  304.                 (help
  305.                     "The Program \"ProSpool\" will be copied to this drawer.")
  306.                 (default ps_dest)
  307.             )
  308.         )
  309.         (if (NOT (AND install_opts Pageflag)) (set ps_dest spo_dest))
  310.         (if (<> (exists ps_dest) 2) (makedir ps_dest (infos)))
  311.     )
  312. )
  313.  
  314. (set @default-dest ps_dest)
  315.  
  316. ;******************************************************
  317. ;* Open First installation disk
  318. ;******************************************************
  319.  
  320. (if (AND install_opts (OR (OR psflag Genieflag) (OR Clipflag FAISflag)))
  321.     (askdisk
  322.         (prompt "\n\n\nPlease insert the disk labeled \"Disk 1\".")
  323.         (help "Files need to be copied from this disk into your system.")
  324.         (dest "PP_disk_1")
  325.     )
  326. )
  327.  
  328. ; copy lz to ram
  329.  
  330. (copyfiles (source "PP_disk_1:c/lzx") (dest "ram:") (nogauge))
  331.  
  332. (if (NOT (exists "S:PPage.INI"))
  333.     (copyfiles (source "PP_disk_1:PPage.INI") (dest "S:") (nogauge))
  334. )
  335.  
  336. (protect "S:PPage.INI" 0)
  337.  
  338. (if (AND install_opts Genieflag)
  339.     (
  340.         (set genie_dest (getassign "Rexx" "a"))
  341.         (if (= genie_dest "")
  342.             (if
  343.                 (askbool
  344.                     (prompt
  345.                         "You do not have \"Rexx:\" assigned, are you SURE you want "
  346.                         "to install genies? (they will be written to \"S:\")")
  347.                     (help
  348.                         "Be careful here: there are quite a number of genies which "
  349.                         "could overflow your \"S:\" directory if it is on Floppy.")
  350.                     (default 0)
  351.                 )
  352.                 (set genie_dest "S:")
  353.             )
  354.         )
  355.         (if (NOT (= genie_dest ""))
  356.             (
  357.                 (working "\n\nInstalling Genies\n\nto\n\n" genie_dest)
  358.                 (textfile
  359.                     (dest "ram:install_script")
  360.                     (append "cd \"" genie_dest "\"\n")
  361.                     (append "ram:lzx -m x PP_disk_1:rexx.lzh * \n")
  362.                 )
  363.                 (execute "ram:install_script")
  364.                 (delete "ram:install_script" (safe))
  365.                 (working "\n\nUpdating s:PPage.INI...")
  366.                 (textfile (dest "s:PPage.INI")
  367.                     (include "s:PPage.INI")
  368.                     (append "GE  " genie_dest "\n")
  369.                 )
  370.                 (set pgenie_dest (tackon ps_dest "pagegenies"))
  371.                 (if (<> (exists pgenie_dest) 2) (makedir pgenie_dest (infos)))
  372.                 (working "\n\nInstalling Page Genies\n\nto\n\n" pgenie_dest)
  373.                 (textfile
  374.                     (dest "ram:install_script")
  375.                     (append "cd \"" pgenie_dest "\"\n")
  376.                     (append "ram:lzx -m x PP_disk_1:pagegenies.lzh * \n")
  377.                 )
  378.                 (textfile (dest "s:PPage.INI")
  379.                     (include "s:PPage.INI")
  380.                     (append "PG  " pgenie_dest "\n")
  381.                 )
  382.                 (execute "ram:install_script")
  383.                 (delete "ram:install_script" (safe))
  384.             )
  385.         )
  386.     )
  387. )
  388.  
  389. (if (AND install_opts FAISflag)
  390.     (
  391.         (if (<> (exists fs_dest) 2) (makedir fs_dest (infos)))
  392.         (copyfiles (source "PP_disk_1:FAISload") (dest fs_dest) (infos))
  393.         (copyfiles (source "PP_disk_1:CreateFont") (dest fs_dest) (infos))
  394.     )
  395. )
  396.  
  397. (if (AND install_opts Clipflag)
  398.     (
  399.         (if (<> (exists clip_dest) 2) (makedir clip_dest (infos)))
  400.         (working "\n\nInstalling Professional Draw Clips\n\n"
  401.             "to\n\n" (tackon clip_dest "Clips"))
  402.         (textfile
  403.             (dest "ram:install_script")
  404.             (append "cd \"" clip_dest "\"\n")
  405.             (append "ram:lzx -m x PP_disk_1:Clips.lzh * \n")
  406.         )
  407.         (execute "ram:install_script")
  408.         (delete "ram:install_script" (safe))
  409.     )
  410. )
  411.  
  412. (if (AND install_opts spflag)
  413.     (
  414.         (if (<> (exists spo_dest) 2) (makedir spo_dest (infos)))
  415.         (working "\n\nInstalling Print Spooler \n\nto\n\n" spo_dest)
  416.         (textfile
  417.             (dest "ram:install_script")
  418.             (append "cd ram:\n")
  419.             (append "ram:lzx -m x PP_disk_1:prospool.lzh * \n")
  420.         )
  421.         (execute "ram:install_script")
  422.         (copyfiles (source "ram:prospool") (dest spo_dest) (infos) (nogauge))
  423.         (copyfiles (source "ram:prospool-handler") (dest "L:") (nogauge))
  424.         (delete "ram:install_script" (safe))
  425.         (delete "ram:prospool*" (safe))
  426.     )
  427. )
  428.  
  429. ;******************************************************
  430. ;* Open Second installation disk
  431. ;******************************************************
  432.  
  433. (if (AND install_opts Pageflag)
  434.     (askdisk
  435.         (prompt "\n\n\nPlease insert the disk labeled \"Disk 2\".")
  436.         (help
  437.             "Professional Page will be copied from this disk into your system.")
  438.         (dest "PP_disk_2")
  439.     )
  440. )
  441.  
  442. (if (AND install_opts Pageflag)
  443.     (
  444.         (set data_dest (tackon ps_dest "Data"))
  445.         (set filter_dest (tackon ps_dest "filters"))
  446.         (if (<> (exists ps_dest) 2) (makedir ps_dest (infos)))
  447.         (if (<> (exists data_dest) 2) (makedir data_dest))
  448.         (if (<> (exists filter_dest) 2) (makedir filter_dest))
  449.         (working "\n\nInstalling Professional Page\n\nto\n\n" ps_dest)
  450.         (textfile
  451.             (dest "ram:install_script")
  452.             (append "cd \"" ps_dest "\"\n")
  453.             (append "ram:lzx -m x PP_disk_2:PPage.lzh * \n")
  454.             (append "cd \"" data_dest "\"\n")
  455.             (append "ram:lzx -m x PP_disk_2:data.lzh * \n")
  456.             (append "cd \"" filter_dest "\"\n")
  457.             (append "ram:lzx -m x PP_disk_2:filters.lzh * \n")
  458.             (append "cd ram:\n")
  459.             (append "ram:lzx -m x PP_disk_2:libs.lzh * \n")
  460.         )
  461.         (execute "ram:install_script")
  462.         (copylib (source "ram:FontEngine.library") (dest "libs:"))
  463.         (copylib (source "ram:IFFParse.library") (dest "libs:"))
  464.         (if (= (exists "libs:asl.library") 1)
  465.             (copylib (source "ram:asl.library") (dest "libs:"))
  466.         )
  467.         (copylib (source "ram:GDArexxSupport.library") (dest "libs:"))
  468.         (copylib (source "ram:golddisk.library") (dest "libs:"))
  469.         (delete "ram:FontEngine.library" (safe))
  470.         (delete "ram:IFFParse.library" (safe))
  471.         (delete "ram:asl.library" (safe))
  472.         (delete "ram:GDArexxSupport.library" (safe))
  473.         (delete "ram:golddisk.library" (safe))
  474.         (delete "ram:install_script" (safe))
  475.         (working "\n\nUpdating s:PPage.INI...")
  476.         (textfile (dest "s:PPage.INI")
  477.             (include "s:PPage.INI")
  478.             (append "PR  " data_dest "\n")
  479.             (append "HY  " data_dest "\n")
  480.             (append "PC  " data_dest "\n")
  481.             (append "PP  " ps_dest "\n")
  482.             (append "TF  " filter_dest "\n")
  483.         )
  484.     )
  485. )
  486.  
  487. ;******************************************************
  488. ;* Open Third installation disk
  489. ;******************************************************
  490.  
  491. (if (AND install_opts Fontsflag)
  492.     (askdisk
  493.         (prompt "\n\n\nPlease insert the disk labeled \"Disk 3\".")
  494.         (help "Fonts and AE will be coppied from this disk into your system.")
  495.         (dest "PP_disk_3")
  496.     )
  497. )
  498.  
  499. (if (AND install_opts Fontsflag)
  500.     (
  501.         (if (<> (exists cg_dest) 2) (makedir cg_dest))
  502.         (working "\n\nInstalling CG Fonts\n\nto\n\n" cg_dest)
  503.         (copyfiles (source "PP_disk_3:CG_Update") (dest cg_dest))
  504.         (textfile
  505.             (dest "ram:install_script")
  506.             (append "cd \"" cg_dest "\"\n")
  507.             (append "ram:lzx -m x PP_disk_3:cgfonts.lzh * \n")
  508.             (append "ram:lzx -m x PP_disk_3:psfonts.lzh * \n")
  509.         )
  510.         (execute "ram:install_script")
  511.         (delete "ram:install_script" (safe))
  512.         (working "\n\nUpdating s:PPage.INI...")
  513.         (textfile (dest "s:PPage.INI")
  514.             (include "s:PPage.INI")
  515.             (append "FE  " cg_dest "\n")
  516.             (append "PSF " (tackon cg_dest "ps") "\n")
  517.         )
  518.         (working "\n\nUpdating CGFonts:if.fnt...")
  519.         (makeassign "CGFonts" cg_dest)
  520.         (run "CGFonts:CG_Update")
  521.     )
  522. )
  523.  
  524. (if (AND install_opts BMFontsflag)
  525.     (
  526.         (if (<> (exists font_dest) 2) (makedir font_dest))
  527.         (working "\n\nInstalling Fonts\n\nto\n\n" font_dest)
  528.         (textfile
  529.             (dest "ram:install_script")
  530.             (append "cd \"" font_dest "\"\n")
  531.             (append "ram:lzx -m x PP_disk_3:fonts.lzh * \n")
  532.         )
  533.         (execute "ram:install_script")
  534.         (delete "ram:install_script" (safe))
  535.         (makeassign "Fonts" font_dest)
  536.     )
  537. )
  538.  
  539. ;******************************************************
  540. ;* Open Fourth installation disk
  541. ;******************************************************
  542.  
  543. (if (AND install_opts (OR (OR AEflag Fmanflag) (OR GrEflag Tutflag)))
  544.     (askdisk
  545.         (prompt "\n\n\nPlease insert the disk labeled \"Disk 4\".")
  546.         (help "Fonts and AE will be coppied from this disk into your system.")
  547.         (dest "PP_disk_4")
  548.     )
  549. )
  550.  
  551. (if (AND install_opts AEflag)
  552.     (
  553.         (if (<> (exists ae_dest) 2) (makedir ae_dest))
  554.         (copyfiles (source "PP_disk_4:AE") (dest ae_dest) (infos))
  555.         (copyfiles (source "PP_disk_4:TransSpell") (dest ae_dest) (infos))
  556.         (copyfiles (source "PP_disk_4:pfsf6b90k") (dest ae_dest) (infos))
  557.         (working "\n\nUpdating s:PPage.INI...")
  558.         (textfile (dest "s:PPage.INI")
  559.             (include "s:PPage.INI")
  560.             (append "AE  " ae_dest "\n")
  561.         )
  562.     )
  563. )
  564.  
  565. (if (AND install_opts Fmanflag)
  566.     (
  567.         (set fmm_dest (tackon fm_dest "fntman_modules"))
  568.         (if (<> (exists fm_dest) 2) (makedir fm_dest (infos)))
  569.         (if (<> (exists fmm_dest) 2) (makedir fmm_dest (infos)))
  570.         (copyfiles (source "PP_disk_4:FontManager") (dest fm_dest) (infos))
  571.         (working "\n\nInstalling Font Manager modules\n\nto\n\n" fm_dest)
  572.         (textfile
  573.             (dest "ram:install_script")
  574.             (append "cd \"" fmm_dest "\"\n")
  575.             (append "ram:lzx -m x PP_disk_4:fntman_modules.lzh * \n")
  576.         )
  577.         (execute "ram:install_script")
  578.         (delete "ram:install_script" (safe))
  579.     )
  580. )
  581.  
  582. (if (AND install_opts GrEflag)
  583.     (
  584.         (if (<> (exists pnt_dest) 2) (makedir pnt_dest))
  585.         (copyfiles (source "PP_disk_4:GrE") (dest pnt_dest) (infos))
  586.         (working "\n\nUpdating s:PPage.INI...")
  587.         (textfile (dest "s:PPage.INI")
  588.             (include "s:PPage.INI")
  589.             (append "PNT " (tackon pnt_dest "GrE") "\n")
  590.         )
  591.     )
  592. )
  593.  
  594. (if (AND install_opts Tutflag)
  595.     (
  596.         (if (<> (exists tut_dest) 2) (makedir tut_dest))
  597.         (set tutd_dest (tackon tut_dest "NewsLetter"))
  598.         (if (<> (exists tutd_dest) 2) (makedir tutd_dest))
  599.         (working "\n\nInstalling Tutorial files\n\nto\n\n" tutd_dest)
  600.         (textfile
  601.             (dest "ram:install_script")
  602.             (append "cd \"" tutd_dest "\"\n")
  603.             (append "ram:lzx -m x PP_disk_4:NewsLetter.lzh * \n")
  604.         )
  605.         (execute "ram:install_script")
  606.         (delete "ram:install_script" (safe))
  607.     )
  608. )
  609.  
  610. (exit)
  611.